click at 340, item 2 of the clickLoc with shiftKey
put the selection into delFile
if the selection is empty
then
set the lockText of the target to true
exit mouseUp
end if
answer "Are you sure you want to delete this file?" with "Delete" or "Cancel"
if it is "Cancel"
then
set the lockText of the target to true
hide card field "select"
hide card field "DelFld"
exit mouseUp
end if
set the lockText of the target to true
set the cursor to 4
set the lockScreen to true
choose field tool
get location of card field delFile
show card field delFile
click at it
domenu "Clear Field"
put number of lines in bkgnd field "List" into Count
repeat with L= 1 to Count
repeat while line L of bkgnd field "List" = delFile
delete line L of bkgnd field "List"
end repeat
end repeat
if delFile = field "Title" then cleanUp
choose browse tool
hide card field "select"
hide card field "DelFld"
end mouseUp
on cleanUp
put "<<untitled>>" into field "Title"
put empty into field "Text"
end cleanUp
-- part 64 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=151 top=36 right=71 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: select
----- HyperTalk script -----
on mouseUp
hide card field "select"
hide card field "delfld"
end mouseUp
-- part 101 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=220 top=111 right=132 bottom=377
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort Document Names
----- HyperTalk script -----
on mouseUp
Sort
end mouseUp
on Sort
show field "List"
set the cursor to 4
--set the lockScreen to True
set lockText of bkgnd field "List" to false
get the loc of bkgnd field 2
click at it
type tab
if the selection is empty
then exit Sort
put sortLines(the selection) into the selection
set lockText of bkgnd field "List" to true
set the lockScreen to False
end Sort
-- part 103 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=222 top=136 right=156 bottom=379
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
hide field "List"
hide field "Instructions"
hide button "Sort Document Names"
hide button "Cancel"
end mouseUp
-- part 104 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=231 top=0 right=18 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Transfer
----- HyperTalk script -----
on mouseDown
get PopUpMenu("Open Application...;Open Stack...;Bring this to my word processor;Go Home",0,20,232)
if it is 1
then
Get fileName ("APPL")
open it
exit mouseDown
else
if it is 2
then
doMenu "Open Stack..."
exit mouseDown
else
if it is 3
then
get field "Text"
Set the lockScreen to true
get location of bkgnd field "Title"
click at it
type tab
doMenu "Copy Text"
open "MacWrite"
exit mouseDown
else
if it is 4
then
go Home
exit mouseDown
end if
end if
end if
end if
end mouseDown
-- part 118 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=63 top=0 right=18 bottom=97
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Edit
----- HyperTalk script -----
on mouseDown
get PopUpMenu("Undo;----------;Cut;Copy;Paste;----------;Find...;Replace",0,20,63)
if it is 1
then
doMenu "Undo"
exit mouseDown
else
if it is 2
then
exit mouseDown
else
if it is 3
then
doMenu "Cut Text"
exit mouseDown
else
if it is 4
then
doMenu "Copy Text"
exit mouseDown
else
if it is 5
then
doMenu "Paste Text"
exit mouseDown
else
if it is 6
then
exit mouseDown
else
if it is 7
then
Search1
exit mouseDown
else
if it is 8
then
Verify
exit mouseDown
end if
end if
end if
end if
end if
end if
end if
end if
end mouseDown
on Search1
ask "Find first occurence of..."
put it into SearchString
set cursor to 4
find chars SearchString in field "Text"
end Search1
on Replace
ask "Search for..."
put it into SearchString
if it is not empty
then
ask "Replace with..."
put it into ReplaceString
if it is not empty
then
set cursor to 4
put 1 into counter
put word counter of field "Text" into checkWord
if checkWord=SearchString then put ReplaceString into checkWord
put checkWord into HoldingField
put space after HoldingField
repeat until checkWord is empty
put counter+1 into counter
put word counter of field "Text" into checkWord
if checkWord=SearchString then put ReplaceString into checkWord
put checkWord after HoldingField
put space after HoldingField
end repeat
put HoldingField into field "Text"
click at 4,41
end if
end if
end Replace
on Verify
beep
Answer "This global replace is NOT undo-able!" with "OK" or "Cancel"
If it is "OK" then Replace
end verify
-- part 119 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=194 top=0 right=18 bottom=228
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Size
----- HyperTalk script -----
on mouseDown
get PopUpMenu("9;10;12;14;18;24;----------;Other...",0,20,195)
if it is 1
then
set textSize of field "Text" to 9
click at 5,67
exit mouseDown
else
if it is 2
then
set textSize of field "Text" to 10
click at 5,67
exit mouseDown
else
if it is 3
then
set textSize of field "Text" to 12
click at 5,67
exit mouseDown
else
if it is 4
then
set textSize of field "Text" to 14
click at 5,67
exit mouseDown
else
if it is 5
then
set textSize of field "Text" to 18
click at 5,67
exit mouseDown
else
if it is 6
then
set textSize of field "Text" to 24
click at 5,67
exit mouseDown
else
if it is 7
then exit mouseDown
else
if it is 8
then
get field "Text"
Set the lockScreen to true
get location of bkgnd field "Title"
click at it
type tab
doMenu "Text Style..."
click at 5,67
exit mouseDown
end if
end if
end if
end if
end if
end if
end if
end if
end mouseDown
-- part 122 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=428 top=23 right=37 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 10
----- HyperTalk script -----
on mouseUp
Type " "
end mouseUp
-- part 124 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=450 top=23 right=37 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 50
----- HyperTalk script -----
on mouseUp
Type " "
end mouseUp
-- part 125 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=470 top=23 right=37 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 100
----- HyperTalk script -----
on mouseUp
Type " "
end mouseUp
-- part 126 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=392 top=23 right=37 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tabs:
-- part 129 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=18 bottom=28
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Apple Menu
----- HyperTalk script -----
on mouseDown
get PopUpMenu(" About HyperWrite; Word Count;----------; Desk Accessories",0,20,1)
if it is 1
then
visual effect iris open
go to card "Info"
visual effect dissolve
go to card "Info2"
exit mouseDown
else
if it is 2
then
get the length of field "Text"
put it/5 into temp
Answer "There are about "& round (temp) & " words in this document."
exit mouseDown
else
if it is 3
then
exit mouseDown
else
if it is 4
then
set cursor to 4
getDANames
doList "Select","Cancel",namesOfDAs,one
get the result
if it<1 then
exit mouseDown
else
doMenu item 2 of it
exit mouseDown
end if
end if
end if
end if
end if
end mouseDown
-- part 132 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=97 top=0 right=18 bottom=155
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Format
----- HyperTalk script -----
on mouseDown
get PopUpMenu("Left Justify;Right Justify;Center;----------;Single Space;Double Space;----------;Plain;Bold;Italic;----------;Other...",0,20,97)
if it is 1
then
set textAlign of field "Text" to left
click at 5,67
exit mouseDown
else
if it is 2
then
set textAlign of field "Text" to right
click at 5,67
exit mouseDown
else
if it is 3
then
set textAlign of field "Text" to center
click at 5,67
exit mouseDown
else
if it is 4
then
exit mouseDown
else
if it is 5
then
get textSize of field "Text"
put it into temp
set textSize of field "Text" to temp
click at 5,67
exit mouseDown
else
if it is 6
then
get textSize of field "Text"
put it into temp
set textSize of field "Text" to temp
get textHeight of field "Text"
put 2*it into temp
set textHeight of field "Text" to temp
click at 5,67
exit mouseDown
else
if it is 7 then
exit mousedown
else
if it is 8
then
set textStyle of field "Text" to plain
click at 5,67
exit mouseDown
else
if it is 9
then
set textStyle of field "Text" to bold
click at 5,67
exit mouseDown
else
if it is 10
then
set textStyle of field "Text" to italic
click at 5,67
exit mouseDown
else
if it is 11
then
exit mouseDown
else
if it is 12
then
get field "Text"
Set the lockScreen to true
get location of bkgnd field "Title"
click at it
type tab
doMenu "Text Style..."
click at 5,67
exit mouseDown
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end mouseDown
-- part 180 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=156 top=120 right=205 bottom=356
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sample
-- part contents for background part 47
----- text -----
Sunday, April 3, 1988
-- part contents for background part 64
----- text -----
Sample
-- part contents for card part 64
----- text -----
Click on the file to be deleted
or here to Cancel "Delete"
-- part contents for background part 70
----- text -----
Select a document to open
from the list on the left,
or click a button below:
-- part contents for background part 71
----- text -----
April 3, 1988
-- part contents for card part 173
----- text -----
Sample
-- part contents for card part 180
----- text -----
This is a sample HyperWrite document, creatively called “Sample.” For detailed information and instructions, select “About HyperWrite” from under the Apple menu.
-- part contents for background part 34
----- text -----
Sample
-- part contents for background part 33
----- text -----
This is a sample HyperWrite document, creatively called “Sample.” For detailed information and instructions, select “About HyperWrite” from under the Apple menu.
Remember - you must have the “HyperWrite Printer” file in the same folder as your HyperCard program for one of this stack's printing functions to work!
If this is your first looks at HyperWrite 2.0, and you're already familiar with the first version, here is a summary of the differences:
• The menu bar has been raised to provide a larger text area.
• “Find” and “Replace” features have been added. Please check the instructions for the “Edit” menu for details.
• Files can now have multi-word names.
• “New & Get Address” brings you to Apple's standard Address stack. With this stack you should also have received an “Address Button” that will install a button on that stack which will bring you back to HyperWrite, and automatically address a letter to the person you specified.
• “Print Selection” now functions as it should, printing whatever area of your document you were last looking at (it used to always print the first section of the document).
• There's been an overall cleaning up of both the program (better “error-trapping”) and the documentation. The “Sort” problem has been fixed.
 (January 1993).iso/Files/Hyper/Hyperj-Hz/HYPWRT2.cpt/HyperWrite/card_3649_render.png){kind=link}